home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIGamesS-T.lzh / Speedball.lha / SpeedballHD / Install-Speedball next >
Text File  |  2001-03-20  |  3KB  |  144 lines
  1. ;try to figure out a place where the user usually installs his games
  2. (if (exists "Games:" (noreq) )
  3.     (set @default-dest "Games:")
  4.     (if (exists "SYS:Games" (noreq) )
  5.         (set @default-dest "SYS:Games")
  6.         (if (exists "Work:Games" (noreq) )
  7.             (set @default-dest "Work:Games")
  8.             (if (exists "JEUX:" (noreq) )
  9.                (set @default-dest "JEUX:")
  10.                (set @default-dest "SYS:")
  11.             )
  12.         )
  13.     )
  14. )
  15.  
  16. (message "\n\n\nThis loader needs the JST program (NOT INCLUDED)\n to be copied in your path\n\n(if you don't have it already)\n\nJST is available from aminet (game/patch) or on my site")
  17.  
  18. (set #CI_unit
  19.     (askchoice
  20.         (prompt "From which disk unit do you want\nto install the game")
  21.         (help    @askoptions-help)
  22.         (choices
  23.            "DF0:"
  24.            "DF1:"
  25.            "DF2:"
  26.            "DF3:"
  27.         )
  28.     )
  29. )
  30.  
  31. (set #CI_drive ("DF%ld:" #CI_unit))
  32.  
  33.  
  34. (set default-dest
  35. (askdir
  36.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  37.     (help @askdir-help)
  38.     (default @default-dest)
  39.     (disk)
  40. )
  41. )
  42.  
  43. (set @default-dest (tackon default-dest @app-name))
  44.  
  45.  
  46. (makedir @default-dest
  47.     (help @makedir-help)
  48.     (infos)
  49. )
  50.  
  51. (set game_ver
  52.     (askchoice
  53.         (prompt    "Which version do you want to install ?"
  54.             (help    "Original version was released by ImageWorks\n"
  55.                 "and did not work on newer amigas due to a\n"
  56.                 "stackframe error. Re-release was fixed for A1200"))
  57.         (choices
  58.            "Original version (JST)"
  59.            "Re-release, DOS disk (JST)"
  60.            "Original version (WHDLoad)"
  61.         )
  62.     )
  63. )
  64.  
  65.  
  66.  
  67. ;----------------------------
  68.  
  69. (if (= 0 game_ver)
  70. (copyfiles
  71.     (help @copyfiles-help)
  72.     (source "SpeedballHD_orig")
  73.     (dest @default-dest)
  74.     (newname "SpeedballHD")
  75. )
  76. (copyfiles
  77.     (help @copyfiles-help)
  78.     (source "SpeedballHD_rerel")
  79.     (dest @default-dest)
  80.     (newname "SpeedballHD")
  81. )
  82. )
  83.  
  84. (if (= 2 game_ver)
  85. (
  86. (copyfiles
  87.     (help @copyfiles-help)
  88.     (source "Speedball.icon")
  89.     (dest @default-dest)
  90.     (newname "Speedball.info")
  91. )
  92. (copyfiles
  93.     (help @copyfiles-help)
  94.     (source "Speedball.slave")
  95.     (dest @default-dest)
  96. )
  97.  
  98. )
  99. (
  100. (copyfiles
  101.     (help @copyfiles-help)
  102.     (source "SpeedballHD.icon")
  103.     (dest @default-dest)
  104.     (newname "SpeedballHD.info")
  105. )
  106. )
  107. )
  108.  
  109. (copyfiles
  110.     (help @copyfiles-help)
  111.     (source "speedballhd.readme")
  112.     (dest @default-dest)
  113.     (infos)
  114. )
  115.  
  116.  
  117. (if (= 1 game_ver)
  118. (
  119.  
  120. (askdisk
  121.     (prompt ("\nInsert %s disk into drive %s !" @app-name #CI_drive))
  122.     (dest        "Speedball")
  123.     (help        "Insert floppy disk in the requested drive!")
  124. )
  125.     (if
  126.         (= 0 (run ("disk2file %ld %s >con:10/10/340/200//CLOSE/WAIT" #CI_unit (tackon @default-dest "speedball.d1") )))
  127.         ("")
  128.         (abort "\"disk2file\" must be in your PATH !")
  129.     )
  130. )
  131.  
  132. (
  133. (message ("\nInsert %s disk into drive %s !" @app-name #CI_drive))
  134.     (if
  135.         (= 0 (run ("readsbdisk %ld %s 2 159 >con:10/10/320/200//CLOSE/WAIT" #CI_unit (tackon @default-dest "speedball.d1") ) ))
  136.         ("")
  137.         (abort "\"readsbdisk\" must be in your PATH !")
  138.     )
  139. )
  140.  
  141. )
  142. (exit)
  143.  
  144.